home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / rexx / fw_macros.lha / Draw_Arrow < prev    next >
Encoding:
Text File  |  1995-03-26  |  716 b   |  30 lines
  1. /* ======================================== */
  2. /*  FINAL WRITER AREXX MACRO                */
  3. /*    by Nigel S. Domaingue, 28/1/95        */
  4. /*  Draw_Arrow                              */
  5. /*  $Ver:  Draw_Arrow v1.0 (30/1/95)        */
  6. /* ======================================== */
  7.  
  8. Options Results
  9.  
  10. /* Must determine the current page and the current  */
  11. /* scroll-position so that the arrow will be placed */
  12. /* in the field of view.                            */
  13. /*   Draws diagonal of a 1"x 1" box.                */
  14.  
  15. Status Page
  16. CurPage = Result
  17.  
  18. Status ScrollPos
  19. Parse VAR Result Top Left
  20. Top = Top + 1
  21. Left = Left + 1
  22. ydisp=top+1
  23. xdisp=left+1
  24.  
  25. GraphicTool
  26. DrawLine  CurPage Top Left ydisp xdisp Arrow
  27. Redraw
  28.  
  29.  
  30.